home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / heat / term.cfg < prev    next >
Text File  |  1991-10-18  |  7KB  |  272 lines
  1. /*********************************************************************
  2. /*
  3. /*    通信用コンフィグ･ファイル    "term.cfg"
  4. /*
  5. /*    TABSIZE = 4;
  6. /*
  7. /*
  8.  
  9.  
  10. /*******************************************************************
  11. /*    TERN_line : 通信中の入力行チェック
  12. /*        入力    TLIN
  13. /*******************************************************************
  14. TERM_line {
  15.     AUTO_line()
  16. }
  17.  
  18. /*********************************************************************
  19. /*    入力行モードのとき呼び出される
  20. /*
  21. /*    【入力】    TSTR        入力文字列
  22. /*    【復帰】    return(0)    そのまま出力
  23. /*                return(-1)    RET を出力
  24. /*                return(1)    RET を入力行に
  25. /*
  26. TERM_input {
  27.     if ( TSTR = "" ) { return    (0) }
  28.     strmid("TOP",TSTR,0,1)    /* 先頭の1文字を取り出す    */
  29.     if ( TOP = "%" )
  30.     {    /* コマンドモード    */
  31.         RET =""
  32.         strmid("TCMD",TSTR,1)
  33.         /*------------------------------------------------------------
  34.         /*    実際のコマンド実行は各ホスト･コンフィグの
  35.         /*        TERM_cmdLine()
  36.         /*    が行う
  37.         /*------------------------------------------------------------
  38.         TERM_cmdline()
  39.         return    (1)
  40.     } else
  41.     {    return    (0)
  42.     }
  43. }
  44.  
  45. /*******************************************************************
  46. /*    TERM_dial : ダイアルメニュー
  47. /*******************************************************************
  48. TERM_dial {
  49.     mosget("sw","x","y")
  50.  
  51.     while ( 0 )
  52.     {    
  53.         menu2_select( x, y, "DIAL MENU", 
  54.             "D:Dial ",
  55.             "",
  56.             "N:Nifty-Serve ",
  57.             "O:Oh!FM TOWNS Net ",
  58.             "3:HOST [3] ",
  59.             "4:HOST [4] ",
  60.             "5:HOST [5] ",
  61.             "6:HOST [6] ",
  62.             "7:HOST [7] ",
  63.             "8:HOST [8] ",
  64.             "9:HOST [9] ",
  65.         )
  66.         switch( VAL, 0, "DIAL_dir",        /* 直接ダイアル    */
  67.                      2, "net_1_dial",
  68.                      3, "net_2_dial",
  69.                      4, "net_X_dial",
  70.                      5, "net_X_dial",
  71.                      6, "net_X_dial",
  72.                      7, "net_X_dial",
  73.                      8, "net_X_dial",
  74.                      9, "net_X_dial",
  75.                     10, "net_X_dial"
  76.             )
  77.         return;
  78.     }
  79. }
  80.  
  81. /*******************************************************************
  82. /*    TERM_auto : 通信中のマクロ制御メニュー [PF-3]
  83. /*******************************************************************
  84. TERM_auto {
  85. }
  86.  
  87.  
  88. /*******************************************************************
  89. /*    TERM_menu : 通信中のマクロ制御メニュー [PF-4]
  90. /*******************************************************************
  91. TERM_menu {
  92.     mosget("sw","x","y")
  93.  
  94.     menu2_select( x, y, "ホスト設定メニュー", 
  95.         "N:Nifty-Serve 設定 ",
  96.         "O:Oh!FM TOWNS Net 設定 ",
  97.         "3:JATIC  設定 ",
  98.         "4:HOST [4] 設定 ",
  99.         "5:HOST [5] 設定 ",
  100.         "6:HOST [6] 設定 ",
  101.         "7:HOST [7] 設定 ",
  102.         "8:HOST [8] 設定 ",
  103.         "9:HOST [9] 設定 ",
  104.     )
  105.  
  106.     switch( VAL, 0, "net_1_set",
  107.                  1, "net_2_set",
  108.                  2, "net_X_set",
  109.                  3, "net_X_set",
  110.                  4, "net_X_set",
  111.                  5, "net_X_set",
  112.                  6, "net_X_set",
  113.                  7, "net_X_set",
  114.                  8, "net_X_set"
  115.         )
  116. }
  117.  
  118. /*------------------------------------------------------------------
  119. /*    直接ダイアル
  120. /*------------------------------------------------------------------
  121. DIAL_dir {
  122.     mosget("sw","x","y")
  123.     menu_input("_DIAL",32,x,y,C_CYAN,"電話番号を入力してください。")
  124.     if ( VAL < 0 ) { return (-1)}
  125.  
  126.     DIAL = _DIAL;
  127.     term_puts("ATZ\r")
  128.     term_switch( 5,"OK\r")
  129.     if ( VAL < 0 ) { return (-1)}
  130.  
  131.     tel_call()
  132. }
  133.  
  134. /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  135. /*    DIAL <- tel.
  136. /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  137. tel_call {
  138.  
  139.     syslin_puts(C_GREEN,C_BLACK,"DIAL...")
  140.     mos_cursor(120)
  141.  
  142.     if ( DIAL = "" ) { return (-1) }
  143.     QUE = "";
  144.     RETRY = 0;
  145.     bk = 0;
  146.     while ( bk = 0 )
  147.     {    if ( QUE = "" )
  148.         {    QUE = DIAL;
  149.         }
  150.         TEL - QUE;
  151.         shift(QUE)
  152.  
  153.         wait(1)
  154.         term_puts("ATD \(TEL)\r")
  155.         wait(1)
  156.         term_switch(30, "CONNECT", "BUSY\r","NO CARRIER" )
  157.         if ( VAL = 0 )
  158.         {    /* CONNECT    */
  159.             syslin_puts(C_GREEN,C_BLACK,"<<<<< CONNECT >>>>>")
  160.             mos_cursor(19)
  161.             wait(1)
  162.             bk = 1;
  163.         } else if ( VAL = 1 )
  164.         {    /* BUSY    */
  165.             inc(RETRY)
  166.                  if ( RETRY = 1 ) { RET = "もっかいかけるか…" }
  167.             else if ( RETRY = 2 ) { RET = "もっかいかけてやるか…" }
  168.             else if ( RETRY = 3 ) { RET = "なっかなかつながンないなぁ～" }
  169.             else if ( RETRY = 4 ) { RET = "まだつながンないかぁ。" }
  170.             else if ( RETRY = 5 ) { RET = "いいかげんにしろよ チクショ！" }
  171.             else if ( RETRY = 6 ) { RET = "だんだん腹たってきたぞ！" }
  172.             else if ( RETRY = 7 ) { RET = "そろそろつながってもいいだろう。" }
  173.             else if ( RETRY = 8 ) { RET = "え～い、 まだか！" }
  174.             else if ( RETRY = 9 ) { RET = "なんどかけさせりゃ 気がすむんだ！" }
  175.             else if ( RETRY =10 ) { RET = "もう10回もかけてんだぞ！" }
  176.             else if ( RETRY =11 ) { RET = "いいかげん あきらめる？？" }
  177.             else if ( RETRY =12 ) { RET = "気長に待つか～" }
  178.             else if ( RETRY >12 ) { RET = "REDIAL \(RETRY)" }
  179.  
  180.             syslin_puts(C_GREEN,C_BLACK,"\(RET)")
  181.             mos_cursor(120)
  182.             wait(8)
  183.         } else if ( VAL = 2 )
  184.         {    /* NO CARRIER */
  185.             inc(RETRY)
  186.             syslin_puts(C_GREEN,C_BLACK,"REDIAL \(RETRY)")
  187.             mos_cursor(120)
  188.             wait(8)
  189.         } else 
  190.         {    return (-1)
  191.         }
  192.     }
  193.     return    (0);
  194. }
  195.  
  196.  
  197. /*--------------------------------------------------------------------
  198. /*    ホスト [1] ダイアル＆設定
  199. /*
  200. net_1_dial {
  201.     if ( NET_CFG ! 1 )
  202.     {    cfg_load("nifty.cfg")
  203.         NET_CFG = 1;
  204.     }
  205.     nifty_dial()
  206. }
  207. net_1_set {
  208.     if ( NET_CFG ! 1 )
  209.     {    cfg_load("nifty.cfg")
  210.         NET_CFG = 1;
  211.     }
  212.     nif_setup()
  213. }
  214.  
  215.  
  216. /*--------------------------------------------------------------------
  217. /*    ホスト [2] ダイアル＆設定
  218. /*
  219. net_2_dial {
  220.     if ( NET_CFG ! 2 )
  221.     {    cfg_load("ofn.cfg")
  222.         NET_CFG = 2;
  223.     }
  224.     ofn_dial()
  225. }
  226. net_2_set {
  227.     if ( NET_CFG ! 2 )
  228.     {    cfg_load("ofn.cfg")
  229.         NET_CFG = 2;
  230.     }
  231.     ofn_setup()
  232. }
  233.  
  234. /*********************************************************************
  235. /*    自分でホストを登録するのはNIFTY.CFG やOFN.CFG を参考にしてｺﾝﾌｨｸﾞ
  236. /*    ファイルを作ってください
  237. /*
  238. net_X_dial {
  239.     wind_close()
  240.     wind_init()
  241.     echo("\n\n    このホストはマクロが登録されていません。\n")
  242.     wait(5)
  243.     wind_close()
  244. }
  245.  
  246. net_X_set {
  247.     net_X_dial()
  248. }
  249.  
  250. /*******************************************************************
  251. /*    TERM_help : ヘルプメニュー [PF-11]
  252. /*******************************************************************
  253. TERM_help {
  254.     wind_close()
  255.     wind_init()
  256.     wind_size_set(72,106,496,268)
  257.     wind_open2("通信用 へるぷ ﾁｬﾝ")
  258.  
  259.     echo("　ログの参照と通信の切り換えは、\n")
  260.     echo("  [TERMINAL]をクリックしてネ\n")
  261.     echo("\n")
  262.     echo("　テキスト編集にもどるときは[PF10]を押してください\n")
  263.     echo("　通信回線を切ってから編集に戻るときは、\n")
  264.     echo("    [SHIFT]+[PF10] を押してねン\n")
  265.     echo("\n")
  266.     echo("　行入力は[SHIFT]＋[PF5]でできるよン。\n")
  267.     wait(30)
  268.     wind_close()
  269.     wind_init()
  270. }
  271.  
  272.